home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / STUTTGART / LANG / FORTH / FORTHMAC / OLD / TOOLS1 / !Forthmacs.lib.blktools < prev    next >
Text File  |  1996-06-11  |  520b  |  17 lines
  1. \ Some F83 BLOCK management tools
  2.  
  3. forth definitions
  4. nuser block-source  0 block-source !
  5.  
  6. : !files    (s fcb -- )    dup block-fid !  block-source !  ;
  7. : default    (s -- )        0 !files  ;
  8. : file?        (s -- )        block-fid @ .file  ;
  9. : switch    (s -- )
  10.     block-fid @
  11.     block-source @  block-fid !
  12.     block-source ! ;
  13. : capacity    (s -- n )    block-fid @  file-size s>d b/buf um/mod nip  ;
  14. : in-block    (s n -- a )    block-source @  file-block  ;
  15. : use-file    (s str -- )    [ sys ] open-block-file !files  ;
  16. : using        (s -- )        blword  use-file ; \ filename
  17.